home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / DPBSL.z / DPBSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. DDDDPPPPBBBBSSSSLLLL((((3333FFFF))))                                                            DDDDPPPPBBBBSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      DPBSL   - DPBSL solves the double precision symmetric positive definite
  10.      band system  A*X = B using the factors computed by DPBCO or DPBFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE DPBSL(ABD,LDA,N,M,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAABBBBDDDD DOUBLE PRECISION(LDA, N)
  20.         the output from DPBCO or DPBFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  ABD .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .
  27.  
  28.      MMMM INTEGER
  29.         the number of diagonals above the main diagonal.
  30.  
  31.      BBBB DOUBLE PRECISION(N)
  32.         the right hand side vector.  On Return
  33.  
  34.      BBBB the solution vector  X . Error Condition
  35.  
  36.      AAAA division by zero will occur if the input factor contains a zero on the
  37.      diagonal.  Technically this indicates singularity, but it is usually
  38.      caused by improper subroutine arguments.  It will not occur if the
  39.      subroutines are called correctly, and  INFO .EQ. 0 .  To compute
  40.      INVERSE(A) * C  where  C  is a matrix with  P  columns
  41.         CALL DPBCO(ABD,LDA,N,RCOND,Z,INFO)
  42.         IF (RCOND is too small .OR. INFO .NE. 0) GO TO ...
  43.         DO 10 J = 1, P
  44.         CALL DPBSL(ABD,LDA,N,C(1,J)) 10 CONTINUE LINPACK.  This version dated
  45.      08/14/78 .  Cleve Moler, University of New Mexico, Argonne National Lab.
  46.      Subroutines and Functions BLAS DAXPY,DDOT Fortran MIN0
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.